#!/usr/bin/perl

use strict;

#my $url = "http://blog.sina.com.cn/lumanaptx4869";
#my $url = "http://home.51.com/lmdbk";
#my $url = "http://hits.blog.sina.com.cn/hits?act=3&uid=4b467b0c&ref=&varname=requestId_58767151";

foreach my $index (1 .. 10) {
	my $pid = fork();
	if ($pid == 0) {
		while (1) {
#			system "curl $url >./index.html";
			system "./mycurl.sh >>./index.html";
			system "echo '\n' >>./index.html";
#			sleep(1);
		}
		exit 0;
	}
}
